home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / misc / identify / identify_dev / arexx / alert.ify next >
Text File  |  1999-05-14  |  845b  |  30 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **  alert.ify           rexxidentify.library demonstration      **
  4. **                                                              **
  5. ******************************************************************
  6. **
  7. **      (c) 1997 by Richard Körber -- All Rights Reserved
  8. **
  9. **      You may use this example freely for your own programs.
  10. **
  11. */
  12.  
  13.   /* Add the library functions */
  14. CALL AddLib("/libs/rexxidentify.library",0,-30,0)
  15.  
  16. SAY "Please enter a system alert code (e.g. 81000005)"
  17. PULL alert
  18.  
  19. SAY "Alert Code ..." alert
  20. SAY "Deadend ......" ID_Alert(alert,"DEAD")
  21. SAY "Subsystem ...." ID_Alert(alert,"SUBSYS")
  22. SAY "General ......" ID_Alert(alert,"GENERAL")
  23. SAY "Specific ....." ID_Alert(alert,"SPEC")
  24.  
  25. SAY ""
  26.  
  27. EXIT
  28.  
  29.  
  30.